-- card: 5204 from stack: in.1
-- bmap block id: 0
-- flags: 4000
-- background id: 2612
-- name: DeProtect


-- part 1 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=224 top=243 right=293 bottom=283
-- title width / last selected line: 0
-- icon id / first selected line: 27056 / 27056
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Try It
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put "Please select a protected stack"
  set cursor to 4
  put filename("STAK") into fname
  if fname is empty then
    play oops
    hide message window
    exit mouseUp
  end if

  deprotect fname

  if the result is empty
  then answer "Deprotect Successful" with "OK"
else osErr the result
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=82 top=302 right=324 bottom=182
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Install
----- HyperTalk script -----
on mouseUp
  if the optionkey is down then pass mouseup
  put installres(XCMD,deProtect) into it
  if it is empty then play oops
  else answer it
end mouseUp



-- part contents for background part 2
----- text -----
DeProtect

-- part contents for background part 3
----- text -----

Calling this will let you remove the standard Hypercard protection from any stack.


Thanks to:
Ned Horvath
Allan Foster

-- part contents for background part 10
----- text -----
Syntax:

DeProtect <filename>

<filename> is the full patname of a Hypercard Stack (no quotes).

If no value is returned to result, then deprotection was successful.  

To correctly handle other error codes, use the osErr* command.

-- part contents for background part 13
----- text -----
2